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1. Introduction 



This report describes a mathematical model and a set of associated interactive 
APL functions which are used to calculate an officer manpower plan for the United 
States Marine Corps. This plan is used during the budget preparation cycle 
and represents the future forecasted and planned force structure by rank. 

A complete plan can be calculated and printed in less than five minutes. This 
is a considerable reduction from the times involved in hand calculations. This 
increase in speed allows the planning officers to try many alternate plans in a 
short period of time, and do sensitivity analysis on certain data elements such 
as loss rates. 

A brief summary of the method of calculation is given here. Details are pre- 
sented in section 3. End strengths (by month) are given for ranks General through 
Captain, as well as losses and gains to these ranks. From these the monthly num- 
bers of promotions out of ranks Colonel through 1-st Lieutenant are calculated. 

For ranks Warrant Officer-1 through 2-nd Lieutenant, the numbers of monthly pro- 
motions are given, and thus the monthly end-strengths for these ranks are de- 
termined. Finally, once promotions into and out of 1-st Lieutenant have been 
calculated, the monthly end-strengths are calculated for that rank. 

Section 2 contains the mathematical formulation of the flow model which is 
based on ideas presented in chapter 1 of reference [2]. Section 3 gives a de- 
tailed description of the order in which the calculations are made. Section 4 
describes a set of data input functions written in APL and intended for interactive 
use in entering data. Section 5 describes a set of calculation and format func- 
tions written in APL and intended for calculation and display of the officer man- 
power plan. Readers unfamiliar with APL should see reference [1]. Finally, section 
6 shows a sample use of the functions and displays a plan. 

All the functions in this report are in a workspace called OFFICERPLAN in the 



/4PL+ system of Scientific Time Sharing Corporation. They were prepared at the 
Naval Postgraduate School through constant communication with the staff in MPP at 
Headquarters, Marine Corps. 
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2. The Personnel Flow Model 



In this section is described the mathematical flow model and how it is used 
to determine the officer manpower plan. The model is based on simple conservation 
of flow equations (see chapter 1 of reference [2] for details of flow models). 

Let the discrete planning time (typically the end of each month) be numbered 
t = 0,1,2, ..., with t = 0 being the starting point. The time interval between 
times t and t+1 we call period t+1 . At each time t we count the number in 
each rank and call it the stock level at time t. People are promoted, join, 
or leave between the accounting time points, and these are called flows in period 
t. Thus we can write 

(1) Stock level = Stock level + Gains - Losses 
at (t+1) at t in (t+1) in (t+1) 

To express (1) mathematically we use the following notation. 
s.(t) = stock level at time t in rank j 

J 

g-(t) = gains in period t into rank j 
£.(t) = losses in period t from rank j 

J 

X-j(t) = promotions in period t into rank j 
y-(t) = promotions in period t out of rank j 

J 

The index j ranges over 1,2, ..., n, where n is the number of ranks which 
are numbered in decreasing seniority. Thus rank 1 is the highest rank and rank 
n is the lowest. Equation (1) now becomes 

(2) Sj(t+1) = Sj(t) + gj(t+l) --Lj(t+1) + Xj(t+1) - yj(t+l), 

j = 1,2 n, t ^ 0. 



+ Promotions In 
i n ( t+1 ) 

Promotions Out 
i n ( t+1 ) 

Let 
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Let s(t), g(t), -L(t), x(t) and y(t) represent the n-dimensional vectors 

for s.(t), g^(t), -^^(t), x-(t) and y-(t) respectively. Then we can write 

J J J J J 

(2) as 

(3) s(t+l) = s(t) + g(t+l) - f(t+l) + x(t+l) - y(t+l), t > 0. 



Before this general model can be applied to the USMC officer corps, further ex- 
planation is required of what we precisely mean by ranks, and for each rank, the 
definition of gains and losses. 

In the computer models described later in this report n has the value 11 
and the ranks are: 



Number (j) 


Rank 




1 


General 


(GEN) 


2 


Colonel 


(COL) 


3 


Lieutenant Colonel 


(LCOL) 


4 


Major 


(MAJ) 


5 


Captain 


(CAPT) 


6 


First Lieutenant 


(ILT) 


7 


Second Lieutenant 


(2LT) 


8 


Warrant Officer-4 


(CWO-4) 


9 


Warrant Officer-3 


(CWO-3) 


10 


Warrant Officer-2 


(CWO-2) 


11 


Warrant Officer-1 


(WO-1) 


For each rank, the sources 


of gains are: 





Rank 

GEN 

COL-CAPT 
1LT-2LT 
CWO-4 - CWO-2 
WO-1 



Sources of Gains 
None 

Returns from reimbursable billets 

Accessions into the commissioned officer corps 

None 

Accessions into the warrant officer corps 
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For each rank the sources of losses are: 



Rank 


Sources of Losses 


GEN 


Natural attrition and retirement 


COL-MAJ 


Natural attrition, retirement and movement to reimbursable 
billets 


CAPT 


Natural attrition, those released from active duty, and 
movement to reimbursable billets 


ILT 


Natural attrition and those released from active duty 


2LT - WO-1 


Natural attrition 



Promotions into a given rank are of course related to promotions out of lower 
ranks. Since time periods are typically of one-month length, promotions of more 
than 1 rank in a time period are assumed not to occur. An exception occurs in 
promotions from warrant officer status to limit duty officer (LDO) in the rank 
of ILT. 

For the ranks GEN through CAPT and for CWO-4 through CWO-2 , the promotions 
into a rank are equal to the promotions out of the next lower rank. Thus 



(4) 


Xj(t) = yj^-|(t), j = 1,2, ..., 5, t ^ 1. 

j = 8,9,10, 


Note that y-|(t) 


is zero (no promotions out of the highest rank). 



Let z.(t) be the number in rank j promoted to ILT as LDO's, for j = 8,9,10, 
t ^ 1 . Then 

(5) Xg(t) = y^Ct) + Zg(t) + Zg(t) + z^Q(t), t > 1. 

No promotions are possible into 2LT or WO-1 , thus Xy(t) and x-|i(t) are both 
zero. 

Equation (3) can now be simplified by eliminating x(t+l). Let A be an 
11 X 11 matrix of O's and 1 's where 
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(i) the diagonal immediately above the main diagonal has all elements equal 
to 1 except for the one on row 6 which is 0, 

(ii) all other elements of A are 0. 

Let B be an 11 x 11 matrix of O's and I's where 

(i) elements in columns 8, 9, and 10 on row 6 are equal to 1, 

(ii) all other elements are equal to 0. 

Let z(t) be an 11-vector with Zg(t), Zg(t) and z-|Q(t) in positions 8, 

9, and 10 respectively, and all other elements equal to zero. Then from (4) and 

(5) 

(6) x(t) = Ay(t) + Bz(t), t ^ 1. 

Substituting this into (3) gives 

(7) s(t+l) = s(t) + g(t+l)-i^(t+l) + (A-I)y(t+1) + Bz(t+1) , t ^ 0. 

Here I represents an identity matrix. Equation (7) can now be used to determine 
the officer manpower plan. 
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3. The Calculation Procedure 



For ranks GEN through CAPT (1-5) the end strengths, gains and losses are all 
given. Denote with a " the system comprising the first 5 equations in (7). 
Since the 5x5 matrix taken from the upper left of B is a zero matrix, we have 

( 8 ) s(t+l) = s(t) + g(t+l) - £(t+ 1 ) + (A-i)y(t+ 1 ), t ^ 0. 

The only unknowns in this equation are the elements of y(t) for t ^ 1. Thus 
we solve ( 8 ) to obtain 

(9) y(t+l) = (I-A)"^ [s(t) - s(t+l) + g(t+1) - Ji(t+1)], t ^ 0. 

The solution of (9) gives the promotions out of ranks COL through 1LT for each 
period in the planning horizon. 

For ranks 2LT to WO-1 , the promotions out are given, together with the gains 
and losses. Denote with " the system comprising the last 5 equations in (7). 
Then given the starting stocks we determine s(1) by 

00) s(l) = s( 0 ) + g(l) - lO) + (A-I)KD + Bz(l), 

then s(2), s(3) etc. recursively through the planning horizon. The only re- 

maining rank for which calculations have not been made is ILT. For ranks above 
this, end-strengths are given and promotions calculated. For ranks below ILT, 
promotions are given and end-strengths calculated. For ILT we have 

Sg(t+1) = Sg(t) + gg(t+l) - J^g(t+1) + Xg(t+1) - yg(t+l), t ^ 0. 

Starting at t = 0, Sg(0) is given, as are gg(l) and Promotions out, 

yg(i)» are calculated through equation (9), and promotions in, >< 5 ( 1 )» are 
calculated through (10) and (5). Thus the unknown is the end-strength Sg(l). 
This and future period end strengths are calculated recursively over the plan- 
ning horizon after equations (9) and ( 10 ) have been solved for all other ranks. 
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4- APL Data Input Functions 



The following page lists eleven matrices and one vector which are used to 
store input data required in computing the officer manpower plan. The results 
of the calculations are also stored in these arrays. 

There are eight APL input functions used to interactively enter data at a 
remote terminal. Each one is described on the following pages together with a 
listing of the function and an illustrative example of its use. Alternative 
methods of data input are illustrated. The use of the APL operator p can save 
time when repetitive numbers have to be entered. See Gilman and Rose [1] for 
details of APL operators. 
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DATA ARRAYS 





These 


arrays are 


stored as global variables. 


APL Name 


Dimensions 


Description 


BSM 


11 


X 12 


Matrix of beginning strengths, 11 ranks 
(GEN - WO-1), 12 periods 


ESM 


11 


X 12 


Matrix of end strengths, 11 ranks, 12 periods 


LFM 


11 


X 12 


Matrix of loss factors, 11 ranks, 12 periods 


LM 


11 


X 12 


Matrix of losses, 11 ranks, 12 periods 


MGM 


11 


X 12 


Matrix of monthly gains, 11 ranks, 12 periods 


POM 


11 


X 12 


Matrix of promotions "out", 11 ranks 12 
periods 


LOOM 


11 


X 12 


Matrix of promotions to LDO from warrant 
officer ranks, 11 ranks, 12 periods 




11 


X 12 


Matrix of numbers in reimbursable billets, 
11 ranks, 12 periods 


TEM 


11 


X 12 


Matrix of transfers reimbursable billets, 

11 ranks, 12 periods 


FBM 


11 


X 12 


Matrix of transfers from reimbursable billets, 
11 ranks, 12 periods 


RU4 


11 


X 12 


Matrix of numbers released from active duty, 
11 ranks, 12 periods 


TLV 




11 


Vector of yearly losses from each rank, 11 
ranks 


Type )SAVE after 


data entry completion to ensure that new input data 



is not lost. 
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BSINPUT (begin strength input) 



Syntax ; Ni Tadic, interactively asks for input 

Global Variables ; It requires the error message pM, the rank vector 
RANKV, and the data matrix BSH. 

Files ; None 

Functions ; None 

Purpose ; This function allows the user to enter the numbers in each 
of 11 ranks (GEN - WO-1 ) at the beginning of a planning period and 
store them as the first column of an 11 x 12 BSM. 



Example : 



BSINPUT 

BEGIN STRENGTH? 



GEN 


COL 


LCOL 


MAJ 


CAPT 


ILT 


2LT 


y-4 


r/-3 


W-2 


V-l 


67 


573 


1471 


2909 


4848 


4086 


338 1 


199 


79 


411 


504 



Function Listing: 



^BSINPUTLQIH 
V BSINPUT \X 

Cl] L1:'BEGIN STRENGTH?' 0 RANKV 
C2] -»-(ll=pX-a)pL2 0 EM 0 ->L1 

C3] L2:BSHi-,ll^X 
7 
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ESINPUT (end strength input) 



Syntax : Niladic, interactively asks for input 

Global Variables : It requires the error message EH, the month matrix 

MONTE, the rank vector RANKV, and the data matrix ESM. 

Files : None 

Functions: None 



Purpose : This function allows the user to enter the planned end 

strengths for ranks GEN, COL, LCOL, MAJ, and CAPT for each of 
the 12 planning months. These are stored in the first 5 rows of the 
11 X 12 matrix ESM. 



Example : 



ESINPUT 
END STRENGTH? 

GEN 

OCT NOV DEC JAN FEB MAR APR MAI JUN JUL AUG SEP 

□ ; 

67 67 67 67 67 67 67 67 67 67 67 67 

COL 

OCT NOV DEC JAN FEB MAR APR MAY JUN JUL AUG SEP 

□ : 

12p574 

LCOL 

OCT NOV DEC JAN FEB MAR APR MAY JUN JUL AUG SEP 

□ : 



12pl472 

MAJ 

OCT NOV DEC JAN FEB MAR APR MAY JUN JUL AUG SEP 

□ : 

(5p2910) ,2912,6p2913 

CAPT 

OCT NOV DEC JAN FEB MAR APR MAY JUN JUL AUG SEP 

□ : 



12p4848 



Function Listing: 



VESINPUTWU 
7 ESINPUT \X 

Cl] ^END STRENGTH?' 0 
[2] Ll:ffAM7[ (6xJ) + x5] 0 , MONTH,' ' 
C3] ->( 12=p.?^0)pL2 O EM 0 ^L1 

[4] L2:ES!HII+1;2^X O ->( 4>I-^J+ 1 ) pLl 

7 
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LFINPUT (loss factor input) 



Syntax : Niladic, interactively asks for input 

Global Variables : It requires the error message EM, the month matrix 

MONTH, the rank vector RANKV and the data matrix LFM. 

Fil es : None 

Functions : None 

Purpose : This function allows the user to enter the desired loss 

factors for each of 11 ranks (starting with GEN and ending with 
W0-l)for each of the 12 planning months. The 12 month factors must 
add to 1.0. These factors are used to spread yearly losses from 
each rank by month. They are stored in the 11 x 12 matrix LFM. 

Example : 



LFINPUT 
LOSS FACTORS? 

GEN 

OCT NOV DEC JAN FEB MAR APR MAY JUN JUL AUG SEP 

□ : 

.04 .03 .02 .01 .06 .06 .06 .04 .05 .077 



INCORRECT INPUT 
GEN 

OCT NOV DEC JAN FEB MAR APR MAY JUN JUL AUG SEP 

□ : 

.04 .03 .02 .01 .06 .06 .05 .05 .07 .31 .1 .2 

COL 

OCT NOV DEC JAN FEB MAR APR MAY JUN JUL AUG SEP 

□ : 

I 



I 

I 



W-1 

OCT NOV DEC JAN FSB MAR APR MAY JUN JUL AUG SEP 

□ : 

.09 .16 .09 .05 .07 .04 .02 .01 .02 .07 .22 .16 



Function Listing : 

VLFINPUTIU^N 
7 LFINPUT ',1 iX 

Cl] 'LOSS FACTORS?' 0 I*-l 

[2] LI :ff;4/V/^£C( 6x1-1 ) + i6] 0 .MONTH.' ' 

[3] -»-(12 = pZ-^0)pL2 0 EM 0 ->-Ll 

[4] L2: LFMlI i^-^X 0 -^(ll^I-^I+l) pLl 
V 
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MGINPUT (monthly gains input) 



Syntax : Niladic, interactively asks for input 

Global Variables : It requires the error message the rank vector 

RANKV, the month matrix MONTE, and the data matrix MGM. 

Files : None 

Functions : None 

Purpose : This function allows the user to enter the expected gains 

in each of 12 months into the ranks WO-1 , 2LT and ILT respectively. 
These are stored in rows 11, 7 and 6 of the 11 x 12 matrix MGM. 

Exampl e : 

MGINPUT 

MONTHLY GAINS? 

y-1 

OCT NOV DEC JAN FEB MAR APR MAY JUN JUL AUG SEP 
0 : 

0 0 0 0 250 0 0 0 0 0 0 0 

2LT 

OCT NOV DEC JAN FEB MAR APR MAY JUN JUL AUG SEP 

□ ; 

242 152 158 102 0 19 134 173 363 140 288 0 

ILT 

OCT NOV DEC JAN FEB MAR APR MAY JUN JUL AUG SEP 

□ : 

213260020305 



Function Listing : 



EMGINPUTiWi^ 

7 MGINPUT-,IiM-,V',X 

Cl] ' MONTHLY GAINS?' 0 1^1 0 M^ 3 6 p ( 6 0 + i 5 ) . ( 3 6 + i 6 ) . 3 0+ i 6 0 
[2] L2-.RANKVL ,MLI ill 0 , MONTH,' ' 

C3] 12=p.^-h0)pZ,3 0 EM 0 -*L2 

[4] LSiMCMlVUm^X 0 ^(3>J^I+l)pL2 
V 



7-^ 11 7 
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POINPUT 



(promotions-out input) 



Syntax ; Niladic, interactively asks for input 

Global Variables : It requires the error message EH, the rank vector 
RANKV, the month matrix MONTH, and the two data matrices POM and LOOM. 

Files : None 

Functions : None 

Purpose ; This function allows the user to enter the planned promotions 
in each of 12 months out of ranks 2LT, and the warrant officers. These 
are stored in rows 7 through 11 of the 11x12 matrix POM. The function 
then asks for the numbers in each 12 months who became limited duty 
officers (LDO) from each of the 4 warrant ranks. These numbers are 
stored in rows 8 through 11 of the 11 x 12 matrix LOOM. 

Example : 

POINPUT 

PROMOTIONS OUT? 

2LT 



OCT NOV 
□ ; 


DEC 


JAN 


FEB 


MAR 


APR 


MAY 


JUN 


JUL 


AUG 


SEP 


0 415 
r/-4 


14 


194 


0 


4 


115 


60 


750 


331 


9 


14 


OCT NOV 
□ : 

12p0 

W-3 


DEC 


JAN 


FEB 


MAR 


APR 


MAY 


JUN 


JUL 


AUG 


SEP 


OCT NOV 
0; 


DEC 


JAN 


FEB 


MAR 


APR 


MAY 


JUN 


JUL 


AUG 


SEP 


7 4 
W~2 


0 


0 


0 


0 


0 


0 


39 


0 


0 


0 


OCT NOV 
0: 


DEC 


JAN 


FEB 


MAR 


APR 


MAY 


JUN 


JUL 


AUG 


SEP 


O 

1 

o 


0 


0 


66 


0 


0 


0 


0 


0 


0 


0 


OCT NOV DEC 

0: 

( 4p0 ) , 
TO LDO? 

>7-4 


JAN 
.234 , 


FEB 

7p0 


MAR 


APR 


MAY 


JUN 


JUL 


AUG 


SEP 


OCT NOV 
□ : 


DEC 


JAN 


FEB 


MAR 


APR 


MAY 


JUN 


JUL 


AUG 


SEP 


0 0 
y-3 


0 


0 


0 


0 


0 


0 


2 


0 


0 


0 


OCT NOV 


DEC 


JAN 


FEB 


MAR 


APR 


MAY 


JUN 


JUL 


AUG 


SEP 



0 ; 

(8pO),25,(3pO) 
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APR MAY JUN JUL AUG SEP 



W - 2 

OCT tWV DEC JAN FEB MAR 

0 : 

(8p0) ,73.3p0 

W-1 

OCT NOV DEC JAN FEB MAR APR MAY JUN JUL AUG SEP 

□ : 

12p0 



Function Listing : 



IPOINPUTmU 

V POINPUTil ;M;X 

Cl] 'PROMOTIONS OUT?' 0 

[2] LI 30+1x6 ) + i6] 0 .MONTH,' ' 

[3] +-(12 = p-^>+D)pL2 0 EM 0 -+L1 

[4] L2;P(0WCl+6; 0 -+( 5>I+-i+l ) pLl 0 0 ' TO LDO? ' 

[5] L3:i?/l/VX£C ( 36+Jx6) + i6] 0 .MONTH.' ' 

[6] -+(12 = pi^0)pL4 0 EM 0 -+L3 

[7] L4;LPCiWCi+7; 0 -»■( 4>I-+I + 1 ) pl,3 

V 
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RSmiNPUT (reimbursable input) 



Syntax : Niladic, interactively asks for input 

Global Variables : It requires the error message EM, the rank vector 
RANKV, the month matrix MONTH, and the data matrices TRM and FRM, 

Files : None 

Functions : None 

Purpose : This function allows the user to enter scores to and from 

reimbursable billets for each of 12 months for the ranks COL, LCOL, 
l-IAJ, and CAPT and store them in rows 2 through 5 of the 11 x 12 
matrices TKi and FRM respectively. 

Example : 

REIMINPUT 
COL TO REIMS 

OCT NOV DEC JAN FEB MAR APR MAY JUN JUL AUG SEP 

0 ; 

1 1 ,10p0 

COL FROM REIMS 

OCT NOV DEC JAN FEB MAR APR MAY JUN JUL AUG SEP 
D: 

1. IlpO 

LCOL TO REIMS 

OCT NOV DEC JAN FEB MAR APR MAY JUN JUL AUG SEP 
□ : 



VALUE ERROR 
□ 12oO 

A 



CAPT TO REIMS 

OCT NOV DEC JAN FEB MAR APR MAY JUN JUL AUG SEP 
□ : 

20001000000 00 
CAPT FROM REIMS 

OCT NOV DEC JAN FEB MAR APR MAY JUN JUL AUG SEP 

n • 

101000020000 
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Function Listing: 



IREIMINPUTmi 
7 REIMIRPUT 

Cl] 4 6 p6 + 0 1^1 

[2] L1;M[J;],’ TO REIMS' 0 .MONTE.' ' 

[3] ->(12 = pX-hO)pL2 0 EM 0 ->LX 

[4] L2:ri?/iCl+l; ]^I 

C5] L3:WCI;],' FROM REIMS' 0 .MONTH.' ' 

[6] •>(12 = p;ir-^G)pi4 0 EM 0 ->L3 

[7] L4 ;F/?/^CJ + l; ]-<-I 

[ 8 ] ->-( 4 Sl-^I + l)pi;i 
7 
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HLDINPUT 



(released from active duty input) 



Syntax : Niladic, interactively asks for input 

Global Variables : It requires the error message JUM, the rank vector 

RANKV, the month matrix MONTH, and the data matrix RLM. 

Files : None 

Functions : None 

Purpose ; This function allows the user to enter the numbers in each 
of 12 months who will be released from active duty in the ranks CAPT 
and ILT. The data is stored in rows 5 and 6 of the 11 x 12 matrix 

Rm. 

Example : 



RLPINPUT 

RE LAD? 

CAPT 

OCT NOV DEC JAN 


FEB 


MAR 


APR 


MAY 


JUN 


JUL 


AUG 


SEP 


□ : 

4 16 


14 


6 


2 


9 


4 


7 


9 


8 


14 


12 


XLT 

OCT NOV 


DEC 


JAN 


FEB 


MAR 


APR 


MAY 


JUN 


JUL 


AUG 


SEP 


□ : 

55 5 5 


90 


41 


35 


62 


23 


48 


90 


48 


62 


76 



Function Listing: 



HRLDINPUTimi 

V RLDINPUTu-,M;V-,X 

Cl] 'RE LAD?' 0 0 M*- 2 6 p ( 2 4+ i 5 ) . ( 3 0 + \ 6 ) O V*- 5 6 

[ 2 ] LX'.RANKV^l J4ll 0 , MONTH,' ' 

C3] 12 = pJ^Q) pL2 O EM 0 -*11 

[4] L2;i?L/iCFCJ];]-ey 0 2>J^I+ 1 ) pZ,l 

V 
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TLINPUT (total loss input) 



Syntax ; Niladic. interactively asks for input 

Global Variables ; It requires the error message EM, the rank vector 
RANKV, and the data vector TLV. 

Files ; None 

Functions ; None 

Purpose : This function allows the user to enter the losses from each 

of the 11 ranks for the planning period, and store them in the 11- 
vector TLV. 



Example: 



TLINPUT 

TOTAL YEAR LOSSES? 



GEN 


COL 


LCOL 


MAJ 


CAPT 


ILL 


2LT 


V-4 


,V-3 


W-2 


y-1 


11 


95 


155 


160 


593 


109 


35 


60 


25 


8 


4 



Function Listing : 



vTLi//pyrCO]v 

V TLINPUT 

Cl] LI;' TOTAL YEAR LOSSES?' 0 RANKV 
[2] -»•( ll=pTL£-^0) pO 0 EM 0 -►LI 

7 
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5. APL Calculation and Output Format Functions 

The calculation, interactive changing, and formatting of the officer manpower 
plan require ten APL functions. These are listed on the following pages. Only 
one is specified by the user, namely OFPLAN. This function calls the other nine 
at appropriate points and they remain invisible to the terminal user. 
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OFPLAN (officer manpower plan) 



Syntax : Niladic, interactively asks for various changes in variables 

and for the amount of detail to be printed. 

Global Variables : The data arrays: BSM, ESM, LFli, MGM, POM, LOOM, TRM, 

FEM, RLM, and TLV. 

Files : None 

Functions : Requires the utilities AYR (answer yes or no) and DATE, 

the formatting functions FMTI, ESREP, OFIE, OMPREP and ATREIMB, 
and the calculation functions CHGIM, PLANi. 

Purpose : This is the main interactive function for obtaining the 

manpower plan. It is the only one (other than functions to input 
data) that the user specifies when calculating a plan. 

Function Listing : See next page. 
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CEGFM 



CHGE4 

Syntax : Monadic, R CHGFM M 

Global Variables : It requires the error message EM. 

Files : None 

Functions : None 

Purpose : It allows the user to change any elements in a fractional 

matrix, and checks that the new entries are consistent with row sums 
equal to 1.0. It is used only inside other functions. 



Function Listing : 



VCHGFMLUlE 

V R^CHGFM MiXiY 

Cl] 'ENTER ZERO FOR RANK IF NO MORE CHANGES' 

[2] -LU'RANK NUMBER?' 0 0 pL6 0 -*-(ll>I)pL2 0 EM 0 

[3] L2:'CURRENT' 0 ,'F6.2' UFMT MLX;1 

[4] LZi'NEW?' 0 ^-(l = + /y-^D)pL4 0 'DO NOT ADD TO 1.0' 0 

[5] Z,4:-»(12 = py)pL5 0 'NEED 12 NUMBERS' 0 -*-L3 

[6] L5 1*-Y 0 -►LI 

[7] LB'.R^M 

V 
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CEGIM 



Syntax : Monadic, i? CHGIH M 

Global Variables : It requires the error message, EM, 

Files : None 

Functions : None 

Purpose : It allows the user to change any elements in an integer 

matrix. It is used only inside other functions. 

Function Listing: 



ICUGIMim^ 

7 R^CHGIM M-,X\Y 

[1] 'ENTER ZERO FOR RANK IF NO MORS CHANGES' 

[2] Lli'RANK NUMBER?' 0 0 pL6 0 ^■(ll>Z)pi:2 0 EM 0 ^L1 

[3] L2:' CURRENT' 0 ,’I6* UFMT MLX\'i 

[4] 'NEW?' 0 ^(12 = pY^D)pL4 0 'NEED 12 NUMBERS' 0 -»-L3 

[5] Lk:MlXi:i^Y 0 ->-Ll 

[ 6 ] L&:R^M 
7 
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PLANl 



Syntax ; Niladic 

Global Variables : It requires all the data arrays, BSM, ESh, LFM, LM, 

MGM, POM, LDOM, TRM, FRM, ELM, and TLV. 

Files : None 

Functi ons : Requires the integer rounding function round 

Purpose : This function performs all the calculations for the manpower 

plan discussed in section 3. 

Function Listing: See next page for both PLANl and ROUND. 
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F14TF 



Syntax : Monadic, i? ■«- FMTF M 

Global Variables : It requires the month matrix MONTH and the rank 

vector RANKV. 

Files : None 

Functions : None 

Purpose : It formats the fractional matrix M with column and row headers. 

It is used only within other functions. 

Function Listing: 



VFMrFCDlV 
V FMTF M 

[1] ' 3 p' ')J40NTH 

[2] (11 6 pRANKV) ,'F6,2' UFMT M 
7 
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FMTI 



Syntax: Monadic, R FMTI M 

Global Variables : It requires the month matrix MONTH and the rank vector 

MNKV. 

Files : None 

Functions : None 

Purpose : It formats the matrix M into integers with column and row 

headers. It is used only within other functions. 

Function Listing : 



VFMriCD]^ 

V FMTI H\N 

[13 /V-^(pM)Cl] 

[2] ' RANK* , , ( 12 3 p ' 

[3] {{N ,6)pRA!]KV) BI& 

V 



’ ) MMONTg 
UFMT M 
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ESREF 



Syntax : Niladic 

Global Variables : It requires the month matrix MONTH, the rank vector 

RANKV, and the data arrays BSM and esh. 

Files : None 

Functions : None 

Purpose : It formats the "End Strength Report" as part of the manpower 

plan. 

Function Listing: 



VESREPIQIV 

V ESREP;MTA;X 

Cl] MYA^i+/BSM^ESM)i2^ 

[2] ’ BEGIN',' GRADE ' 3 p' '), MONTH),' MY A' 

C3] ('16' UFMT 11 1 ‘tBSM),{.lX 6 qRANKV I^' UFMT {ESM) ,MY A 

[4] ' TOTAL',,'Ib' UFMT*HSM 

V 
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OFIE 



Syntax : Niladic 

Global Variables: It requires the month matrix MONTH and the data 

arrays BSH, ESM, ELM, and LM. 

Files : None 

Functions : None 

Purpose : It formats the "Officer IE Table" as part of the manpower 

plan. 

Function Listing : 



VOFlffCODV 

V OFlEiXiY \MiV 

Cl] + 6 12 pi-t-fESM) ,iiy-^ + J^LM)+X^+fELM.) .(+/-MGM) ,+^ESM 

C2] ' ! LOSSES r 

[3] 'MONTH BEGIN RELAD OTHER TOTAL GAINS END' 

[4] (' ', MONTH,' ’),(12 2 p’ '),'BI8' OFMT M 

C5] 'TOTAL ',,'18' DFWrliVCl;!] , (4fl + y),WCl2;6]) 

V 



30 



OMPREP 



Syntax : Niladic 

Global Variables : It requires the month matrix MONTH, rank vector 

RAMV, the formatting headers El, HiG, H2, m, m, H5, H6, Hi, H8, H9, 
Hio, Hii, H12, H13, and ffi4, the line feed LF, and all the data arrays. 

Files : None 

Functions : None 

Purpose : It formats the "Officer Manpower Plan," the main output 

showing the monthly details of a yearly plan for each rank. 

Function Listing : See next page. 
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ATREIMB 



Syntax : Niladic 

Global Variables : It requires the data arrays ARM, TRM and FRH. 

Files : None 

Functions : None 

Purpose : It formats the movement of officers at, to, and from reimbursable 

billets as part of the manpower plan. 



Function Listing : 



1 ATREIMBWl 

V ATREIMB 

Cl] ' OFFICERS IN REIMBURSABLE BILLETS' 

C2] ' COL LCOL MAJ CAPT' 

[3] 'Sfi’GIiV , , 'ilO ' UFMT ,ARMil*\H',l'\ 

[4] ' TO', ,'110' □FWJ’( +/r^W) [ 1+ i4] 

C5] ' FROM',, '110' OF/VJ’I+ZFff/V) Cl+i4] 

[6] ' END' , ,'110' DFMT(+/TRM-^ARM~FRM)L1-^\^1 

V 
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6. An Example 



The next seven pages give an example of an officer manpower plan. This ex- 
ample does not show every feature of the interactive capability, but should be 
sufficient to illustrate the use of the model. A complete plan takes less than 
five minutes of terminal time and less than 1 second CPU time on Scientific Time 
Sharing's APL+ system. Thus many iterations are possible in the planning cycle. 
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OFPLAN 

DISPLAY LOSS FACTORS? YES 

RANK OCT NOV DEC JAN FEB MAR APR MAY JUN JUL AUG SEP 
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CHANGE REIMS? NQ 



USMC OFFICER PLAN DATE :~20 AUGUST 1977 
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OFFICER MAiWOWER PLAN 

RANK TOTAL OCT NOV DEC JAN FEB MAR APR MAY JUN JUL AUG SEP 

BEGIN 67 67 67 67 67 67 67 67 67 67 67 67 67 

LOSSES 11 11111312 

GEN PROM IN 11 11111312 







^ CM 


cn 


zt 


CM 


O 


CO 


CO 


CM 


O 














CM 




cn 








LO 








zt 








Zt- 


CD 






















CM 







CO zr 


zt 


CM 


CM 


:T 


CD 


CM 


O 












CN 




CO 








m 




LT) 












CD 


















rH 


CM 





zr 


CM CO LO 


zt 


CN 


00 


lO 


cn 


CM 


O 


CD 




CN CM 






CN 


CN 


lO 




tH 




m 




LO 


zt 








zt 


CD 




















CM 





Zt 


CO (T) 


zt 


CN 


CD CT^ 00 


CM 


o 


CD 


















LO 




lO 






zt 


CD 














tH 


CN 





Zt 


lO CD 


zt 


CN 


00 CD J- 


CM 


o 


CD 














tH 




lO 




LO 


zt 






CD 










tH 




tH 


CN 





zt 


LO 


zt 


CM 


00 LO cn 


CM 


O 


CD 


















LO 




lO 


zt 




jrj- 


CD 
















CM 







LO 'tH CD 


zt 


CM 


CD CD LO 


CM 


O 


o 


















LO 




LO 


zt 




zt 


CD 














r-» 


CM 



C*^ 


zt 


th 00 




CM 


CM 00 O 


CN 


o 


CD 








r*^ 


CN 








LO 




LO 


zt 




zt 


CD 










tH 






CM 





LO 


LO 


zt 


zt 


CM 


00 :d- CM 


CM 


O 


CD 








C** 






r-' 






lO 






LO 


zt 




zt 


CD 












tH 






CM 





zt 


cn 


zt 


LO 


CM 


CD Jd- O 


CM 


o 


CD 


r^ 










'tH 








lO 






LO 


zt 






CD 












tH 






CM 





zt 


LO 


LO 


zt 


CN 


cn lo 


CM 


O 


CD 








r^ 




-tH 








lO 






LO 






zt 


CD 
















tH 


CM 





CO 




t-m :a- 




CD cn w CM 


CD 


CD 










-r-* CM 


O 




LO 




LO 


Zt 


zt 


CD 














CM 



r- 


cn 


LO 


CD Zf 




lO CD 


^ CM 


CD 


CD 




CD ^ 


o r-- 




LO O 


CD 


O 




lO 




-tH lO 


zt 


tH ^ 


CM Zt 


CD 














'tH 


CM 











QCJ 








































QQ 


6^ 


H 




CQ 


5-1 


H 




CQ 








::o 








:::5 


55 lua 




5: 






H CO O 


H 




H CO 


O 


H a: 




H 












5; 


!:«3 a: 








Co 




H 


cc; CO 


5! 


5: :s: 


H 


a5 CO 








a: 






CO 




O O C:i 




CO 


o 


O O 


C^3 












a^ a^ 55 


a3 


o c::^ 


a: 


a: a: 


Co 


CD 




QCj 




a. 


Qg CiLi lia 


qq 




a, 


a, a, Co 


qq 






















































Cj 








CD 































38 



LOSSES 160 13 10 8 11 11 8 10 8 16 25 22 18 

MAJ PROM OUT 261 23 14 10 12 20 15 13 14 18 53 36 33 

PROM IN 421 36 24 18 23 31 23 23 22 34 78 58 51 

FROM REIMS 1 1 

END 2910 2910 2910 2910 2910 2910 2910 2910 2910 2910 2910 2910 2910 
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